home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000048.bina < prev   
Encoding:
Text File  |  1999-11-11  |  9.6 KB  |  233 lines
  1. ; Common constants used in AI goals - other constants will follow the specific goals
  2.     ; Common.
  3.     (defconst NO 0)         ;Used to indicate not set or initial value (as Normal)
  4.     (defconst YES 1)         ;Used to indicate set
  5.     (defconst NORMAL 0)     ;Used for default values
  6.     (defconst NOTICE 99)  ;Used for special highlight or initialization values that should be set
  7.  
  8.     ; Constants used for ratings (i.e. monk-rating)
  9.     (defconst EXCELLENT 100); For any rating-type value highest to lowest
  10.     (defconst GOOD    70)        
  11.     (defconst MEDIUM 50)
  12.     (defconst FAIR 30)
  13.     (defconst POOR 10) 
  14.  
  15.     ; Constants used for combat or defense strategy selection
  16.     (defconst INFANTRY 1)
  17.     (defconst CAVALRY 2)
  18.     (defconst LIGHTCAV 3)
  19.     (defconst CAVARCHER 4)
  20.     (defconst ARCHER 5)
  21.     (defconst SCORPION 12)
  22.     (defconst UNIQUE 13)
  23.     (defconst UNIT20 20) ;SP - wasn't sure what 20 was used for in combat-arm and combat-supp
  24.  
  25. ;NOTE: Goal 1 0 = no boats; Goal 1 1 = boats; Goal 1 10 = lotsa boats (island map)
  26.     (defconst boat-strategy 1)
  27.     (defconst SOMEBOATS 1)    ;this actually means we're on a water map
  28.     (defconst MANYBOATS 10)    ; this actually means we're on an islands map
  29.  
  30. ;goal 2 0 okay on boats; 2 1 need warships! 2 2 we've won with ships
  31.     (defconst boats-needed 2)
  32.     (defconst WARSHIPS 1)    ;I don't think this is used any more
  33.     (defconst CONTROL 2)
  34.  
  35. ;Goal  3 0 = military parity; Goal  3 1 = an enemy outnumbers us!
  36.     (defconst military-parity 3)
  37.     ;uses NO, YES
  38.     (defconst SUPERIOR 2)
  39.  
  40. ;goal  4 = used to track attack group AI
  41.     (defconst attack-control 4)
  42.     ;SP - need doc for
  43.     ;0=   okay to launch an attack
  44.     ;1=    not okay - because we're outnumbered, building a wonder, or have no enemies
  45.     ;2=    not okay - because we lack siege
  46.     ;3=    not okay - because we're trying to rush to the next age and want to limit losses
  47.  
  48. ;goal  5 = controls gather rates - 5 0 = normal; 5 1 = wood; 5 2 = food; 5 3 = gold; 5 4 = stone
  49.     (defconst resource-needed 5)
  50.     (defconst WOOD 1)
  51.     (defconst FOOD 2)
  52.     (defconst GOLD 3)
  53.     (defconst STONE 4)
  54.     ;(defconst GOLD-STONE 5) this means you want both gold & stone
  55.  
  56. ;goal  6 = controls rushes!; also uses NOTICE
  57.     (defconst rush-control 6)
  58.     (defconst FEUDAL 2) ;we have just eliminated this as too puny
  59.     (defconst CASTLE 3)
  60.     (defconst IMPERIAL 4)
  61.     (defconst RUSHING 10)
  62.     (defconst BOOMING 18)
  63.     (defconst FEEDING 19)
  64. ;goal 7 used for deathmatch to determine whether or not to build more units
  65.     (defconst need-deathmatch-villagers 7)
  66.     ;uses NO, YES
  67. ;goal 8 secondary-build controls secondary builds (ensures there are already soldiers before doing a secondary build)
  68.     (defconst secondary-build 8)
  69.     ;0 = it's okay to build a secondary unit
  70.     ;1 = don't build a secondary unit
  71. ;goal 9 resource-supp used in conjunction with resource-needed to determine what to gather
  72.     (defconst resource-supp 9)
  73.     (defconst FOOD-ONLY 2)
  74.     (defconst GOLD-ONLY 3)
  75.     (defconst WOOD-FOOD 12)
  76.     (defconst WOOD-GOLD 13)
  77.     (defconst WOOD-STONE 14)
  78.     (defconst FOOD-GOLD 23)
  79.     (defconst FOOD-STONE 24)
  80. ;goal 10 used to keep from building siege if I have few or no other units
  81.     (defconst soldiers-available 10)
  82. ;goal 11 = used to determine your main combat arm; in deathmatch, it determines your unique unit type
  83.     (defconst combat-arm  11)
  84.     ;--Converted to constant  combat-arm, uses common offense/defense unit line numbers.
  85.         ;repl    goal 11 1 = Infantry    goal  12 1
  86.         ;repl    goal 11 2 = Cavalry        goal  12 2
  87.         ;repl    goal 11 3 = Light Cav    goal  12 3
  88.         ;repl    goal 11 4 = Cav Archer    goal  12 4
  89.         ;repl    goal 11 5 = Archer        goal  12 5
  90.         ;repl                 scorpion =    goal  12 12
  91.         ;repl    goal 11 13 = Unique
  92.  
  93. ;goal  12 = used to supplement goal 11. 
  94.     (defconst combat-supp SCORPION)
  95.     ; Uses combat and defense strategy standard codes
  96.  
  97. ;goal  13 = used to control boat production; 
  98. ;    13 1 = no fast fire ships; 13 2 = no heavy demo ships; 13 3 = vikings
  99. ;    13 10 = no cannon galleys; 13 11 = no fast fire ships & no cannon galleys
  100.            (defconst boat-prod 13)
  101.  
  102. ;goal  14 helps in age advancement 
  103.             (defconst age-advancement 14) ; Uses NO, NOTICE
  104.             ;--Converted 14 to constant  age-advancement  (was 0,99)
  105.             ;SP - we should document our notice value -what does it indicate?
  106.             ;NO = it's okay to start saving up for the next age advance, assuming all other criteria are met
  107.             ;NOTICE - we are currently researching the next age. Keeps the CP from trying to "save up" for that age when it's already researching it
  108.  
  109. ;goal  15 controls warboat builds according to pop cap; 15 0 = build warships
  110.             (defconst make-warboat 15) ; Uses NO, YES
  111.             ;--Converted 15 to constant  make-warboat  Standard 0 = NO, 1 = YES
  112. ;goal  16 helps control upgrade conflicts
  113.             (defconst upgrade-conflict 16)
  114.             ;NOTICE is  99 -- it means we're saving for age advancement or a wonder
  115. ;goal  17 controls builds based on civ type before unique units are available
  116.             (defconst pre-unique-arm 17)
  117.             ;SP - need doc for
  118.             ;1 = we're training infantry (until our castle is finished)
  119.             ;2= we're training cavalry (till our castle is finished)
  120.             ;3= we're training light-cavalry (till our castle is finished)
  121.             ;4 = we're training cav archers (till our castle is finished)
  122.             ;5 = we're training archers (till our castle is finished)
  123.             ;note that these numbers correspond to the combat-arm and combat-supp goals above.
  124. ;goal 18 = used to decide on personalities 
  125. ;    goal 18 1 = feeder; 18 2 = boomer; 18 3 = bully; 18 4 = liar; 18 5 = "ally"
  126.             (defconst personality 18)
  127.             (defconst FEEDER 1)
  128.             (defconst BOOMER 2)
  129.             (defconst BULLY  3) ;m
  130.             (defconst LIAR 4)  
  131.             (defconst ALLY 5) ;m
  132.             (defconst SENTTRIBUTE 10) ;SP - not sure about this one, check and correct
  133.             ;SP: Document 11
  134.             ;SP: Document 12
  135.             ;SP: Document 13
  136.             ;SP: Document 14
  137.             ;SP: Document 15
  138.             (defconst TRADENEUTRAL 50) ;SP - not sure about this one, check and correct
  139.  
  140. ;goal  19 = not currently in use
  141. ;goal  20 = helps control wonder-building      
  142.             (defconst wonder-attempt 20) ; Uses NO, YES, POSSIBLE, MAYBE, NOTICE
  143.             (defconst POSSIBLE 10)
  144.             (defconst MAYBE 90)          ;SP:Not sure on this one, took a guess.
  145.             ;--Converted to constant  wonder-attempt  Standard 0 = NO, 1 = YES
  146. ;goal 21 = helps control castle-building
  147.             (defconst castle-attempt 21) ; Uses: NO, YES
  148.             ;--Converted to constant castle-attempt   Standard 0=NO, 1 = YES
  149.             ;sandy - is goal 21 2 the 'possible/attempt' state?  Can I change them to 10s?
  150.             ;0 = not planning to build a castle. 
  151.             ;1 = want to build a castle, but haven't succeeded yet.
  152.             ;2 = have already built 1 castle. Will build more if convenient. 
  153. ;goal 22 = not currently in use
  154. ;goal 23 = goal 23 2 we are the main ship builder. 
  155.             (defconst sea-owner 23) ; Uses: NO, YES, NOTICE
  156.             ;--Converted 23 to constant sea-owner
  157.             ;SP: Note changed all '2' to YES, all 0 to NO, all 99 to NOTICE.   
  158. ;goal 24 = not currently in use
  159. ;goal 25 = controls alliance & resource types 
  160.     ;uses WOOD, FOOD, GOLD, STONE, NOTICE, NO. also uses
  161.             (defconst CASTLE-AGE-WOOD 11)
  162.             (defconst CASTLE-AGE-FOOD 12)
  163.             (defconst CASTLE-AGE-GOLD 13)
  164.             (defconst CASTLE-AGE-STONE 14)
  165.             (defconst IMPERIAL-AGE-WOOD 21)
  166.             (defconst IMPERIAL-AGE-FOOD 22)
  167.             (defconst IMPERIAL-AGE-GOLD 23)
  168.             (defconst IMPERIAL-AGE-STONE 24)
  169. ;goal 26 = checks to see how big the enemy military is in absolute terms. 
  170.             (defconst enemy-soldiers 26) ;the number given is app the enemy's size
  171. ;goal 27 = determines monk prowess  
  172.             (defconst monk-rating 27)  ;Uses: GOOD, FAIR, NO
  173.             ;--Converted 27 to constant monk-rating
  174.             ; Changed from  0 = good monks, 27 1 = bad monks, 27 2 = terrible monks, 27 3 = no monks
  175.             ; Changed to GOOD = good monks  FAIR = bad monks  POOR = terrible monks,  NO = no monks
  176. ;goal 28 = helps keep alliances straight
  177.             (defconst get-mad 28)
  178.             ;SP-uses NO, YES, 
  179.             (defconst ANGRY 2)
  180.             (defconst ANGRIER 3)
  181.             (defconst ANGRIEST 4)
  182. ;goal 29 = controls tribute for feeder personalities
  183. ;goal 30 = toggle to control boat-building
  184.             (defconst make-fire-boat 30) ; Uses: NO, YES
  185.             ;--Converted 30 to constant make-fire-boat
  186. ;goal 31 1 = infantry
  187.             (defconst infantry-upgrades 31)
  188.     ;SP: Need documentation
  189.     ;0 = not training infantry
  190.     ;1 = training infantry
  191. ;goal 32 1 = archers
  192.             (defconst archer-upgrades 32)
  193.     ;SP: Need documentation
  194.     ;0 = not training archers
  195.     ;1 = training archers
  196. ;goal 33 1 = cav
  197.             (defconst cav-upgrades 33)
  198.     ;SP: Need documentation
  199.     ;0 = not training cav
  200.     ;1 = training cav
  201. ;goal 34 used to see if we are short on siege equipment
  202.             (defconst siege-available 34)
  203.     ;0 = NO (we don't have enough siege)
  204.     ;1 = YES (we have some siege)
  205. ;goal 35 = used for diplomacy on Easy & Easiest difficulty levels only. Also used to track
  206. ;used to calculate enemy navy size on higher levels of difficulty
  207. ;goal 36, 37, 38, 39 = wood, food, gold, stone checks for script parts that require them. 
  208.     ;SP: Need documentation
  209. ;goal 40 = wall-construction
  210.             (defconst wall-build 40) ; Uses: NO, YES, NOTICE
  211.             ;Converted 40 to constant wall-build  
  212.             ;previously used 40 0 = walls off 40 1 = walls on, and 10 as initialized.
  213.             ;Converted to NO, YES, NOTICE (was 10).
  214. ;timers
  215. ;timer 1 = controls tribute
  216. ;timer 2 = controls attack groups
  217. ;timer 3 = checks on what we are currently producing
  218. ;timer 5 = used to control chat messages
  219. ;timer 6 = additional chat message help
  220. ;timer 7 = wall-building timer
  221. ;timer 8 = yet more chat-message help
  222. ;timer 9 = the lumber-camp timer
  223. ;timer 10 = used to see if we've risen in age. Once we're imperial, used to build extraneous units
  224. (defconst t-tribute 1)
  225. (defconst t-attackgroup 2)
  226. (defconst t-production 3)
  227. (defconst t-chat 5)
  228. (defconst t-chathelp 6)
  229. (defconst t-tower 7)
  230. (defconst t-chatmore 8)
  231. (defconst t-lumbercamp 9)
  232. (defconst t-ageup 10)
  233. ;;;  ]ma